home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / PrintDoks / Lieferantenübersicht.suppri < prev    next >
Text File  |  1999-03-27  |  4KB  |  212 lines
  1. 3$VER: Lieferantenübersicht 1.04 (28.03.99)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%CreationDate: (28.03.1999)
  5. %%Version: 1.04
  6. %%Title: (MT-RechnungIII - Lieferantenübersicht)
  7. %%LanguageLevel: 2
  8. %%DocumentMedia: A4 594 839 null () ()
  9. %%DocumentNeededResources: font Times-Roman
  10. %%BoundingBox: 0 0 549 839
  11. %%EndComments
  12. %%BeginnDefaults
  13. %%PageMedia: A4
  14. %%EndDefaults
  15.  
  16. %%BeginnSetup
  17. << /PageSize [594 839] >> setpagedevice
  18.  
  19. /PageSize [594 839] def
  20.  
  21. /DokumentRandX 54 def
  22. /DokumentRandY 50 def
  23.  
  24. DruckrandX 720 mul 256 div /DruckrandX exch def
  25. DruckrandY 720 mul 256 div /DruckrandY exch def
  26.  
  27. DruckrandX DokumentRandX ge
  28. {
  29.     0 /DokumentRandX exch def
  30. }
  31. {
  32.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  33. } ifelse
  34.  
  35. DruckrandY DokumentRandY ge
  36. {
  37.     PageSize 1 get /DokumentRandY exch def
  38. }
  39. {
  40.     PageSize 1 get DokumentRandY sub DruckrandY add /DokumentRandY exch def
  41. } ifelse
  42.  
  43. /DokumentRandYOriginal DokumentRandY def
  44. %%EndSetup
  45.  
  46. %%BeginnResource
  47. /reencodedict 5 dict def
  48. /ReEncode
  49. {
  50.      reencodedict begin
  51.      /newencoding exch def
  52.      /newfontname exch def
  53.      /basefontname exch def
  54.  
  55.      /basefontdict basefontname findfont def
  56.  
  57.      /newfont basefontdict maxlength dict def
  58.  
  59.      basefontdict
  60.      { exch dup dup /FID ne exch /Encoding ne and
  61.           { exch newfont 3 1 roll put }
  62.           { pop pop }
  63.           ifelse
  64.      } forall
  65.      newfont /FontName newfontname put
  66.      newfont /Encoding newencoding put
  67.      newfontname newfont definefont pop
  68.      end
  69. } def
  70.  
  71. /ISOLatin8Encoding
  72. [
  73.     ISOLatin1Encoding 0 164 getinterval aload pop
  74.     /euro
  75.     ISOLatin1Encoding 165 91 getinterval aload pop
  76. ] def
  77. /getfont {ISOLatin8Encoding ReEncode findfont exch scalefont def} bind def
  78. /getsymbol {findfont exch scalefont def} bind def
  79. %%EndResource
  80.  
  81. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  82. /Times10Zeile 10 def
  83. /Times10 Times10Zeile /OF0 /Times-Roman /OF0 getfont
  84. /Times24Zeile 24 def
  85. /Times24 Times24Zeile /OF0 /Times-Roman /OF0 getfont
  86.  
  87. /Seite 1 def
  88. /SeitenNr 4 string def
  89.  
  90. %% Definition der Überschrift
  91. /Ueberschrift
  92. {
  93.     /BoxX1 DokumentRandX def
  94.     /BoxX2 486 def
  95.     /BoxY1 DokumentRandY 2 sub Times10Zeile sub def
  96.     /BoxY2 Times10Zeile Times10Zeile add def
  97.  
  98.     0.9 setgray
  99.     BoxX1 BoxY1 BoxX2 BoxY2 rectfill
  100.     0.0 setgray
  101.     BoxX1 BoxY1 BoxX2 BoxY2 rectstroke
  102.  
  103.     DokumentRandX 3 add DokumentRandY moveto
  104.     (Lief.Nr) show
  105.  
  106.     DokumentRandX 50 add DokumentRandY moveto
  107.     (Firma/Name) show
  108.  
  109.     DokumentRandX 200 add DokumentRandY moveto
  110.     (Straße) show
  111.  
  112.     DokumentRandX 350 add DokumentRandY moveto
  113.     (Ort) show
  114.  
  115.     DokumentRandY Times10Zeile sub /DokumentRandY exch def
  116.  
  117.     DokumentRandX 50 add DokumentRandY moveto
  118.     (Telefon) show
  119.  
  120.     DokumentRandX 200 add DokumentRandY moveto
  121.     (Fax) show
  122.  
  123.     DokumentRandX 350 add DokumentRandY moveto
  124.     (E-Mail) show
  125.  
  126.     DokumentRandY Times10Zeile sub 5 sub /DokumentRandY exch def
  127.  
  128. } def
  129.  
  130. %% Ausgab der Kopfdaten
  131.  
  132. Times24 setfont
  133.  
  134. DokumentRandX 100 add DokumentRandY moveto
  135. (Lieferantenübersicht) show
  136.  
  137. DokumentRandY Times24Zeile sub Times24Zeile sub /DokumentRandY exch def
  138.  
  139. Times10 setfont
  140.  
  141. Ueberschrift
  142.  
  143.  
  144. LieferantTabelle
  145. {
  146.     80 DokumentRandY gt
  147.     {
  148.         DokumentRandX 450 add 50 moveto
  149.         (Seite: ) show
  150.         Seite SeitenNr cvs show
  151.         showpage
  152.  
  153.         /DokumentRandY DokumentRandYOriginal def
  154.         Ueberschrift
  155.         Seite 1 add /Seite exch def
  156.     } if
  157.  
  158.     dup 0 get
  159.     DokumentRandX 3 add DokumentRandY moveto
  160.     show
  161.  
  162.     1 get
  163.  
  164.     DokumentRandX 50 add DokumentRandY moveto
  165.     dup 10 get () gt
  166.     {
  167.         dup 9 get show
  168.         ( ) show
  169.         dup 10 get show
  170.     }
  171.     {
  172.         dup 11 get show
  173.     } ifelse
  174.  
  175.     dup 13 get
  176.     DokumentRandX 200 add DokumentRandY moveto
  177.     show
  178.  
  179.     DokumentRandX 350 add DokumentRandY moveto
  180.     dup 15 get show
  181.     ( ) show
  182.     dup 16 get show
  183.  
  184.     DokumentRandY Times10Zeile sub /DokumentRandY exch def
  185.  
  186.     dup 19 get
  187.     DokumentRandX 50 add DokumentRandY moveto
  188.     show
  189.  
  190.     dup 20 get
  191.     DokumentRandX 200 add DokumentRandY moveto
  192.     show
  193.  
  194.     22 get
  195.     DokumentRandX 350 add DokumentRandY moveto
  196.     show
  197.  
  198.     DokumentRandY Times10Zeile sub 5 sub /DokumentRandY exch def
  199.  
  200. } forall
  201.  
  202. DokumentRandX 450 add 50 moveto
  203. (Seite: ) show
  204. Seite SeitenNr cvs show
  205.  
  206. showpage
  207.  
  208. %%Trailer
  209. clear
  210. %%EOF
  211.  
  212.